﻿Public Class EvlenmeDuzeltme
    Inherits Process

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "Evlenme Kaydı Düzeltme"
                InitialHelp = "Kimlik numarasını girin."
                AddField("Kimlik", "nl")
                StartBody()
                AddField("Tarih[name=islemtar;label=İşlem Tarihi", "nl;readonly")
                AddField("Ad[name=adi;label=Adı", "nl;readonly")
                AddField("Ad[name=soyadi;label=Soyadı", "nl;readonly")
                AddField("Sube", "nl")
                AddField("EvlenmeDosyaNo[name=dosyano]", "nl")
                AddField("Tutar[name=odememik;label=Ödeme Miktarı", "nl")
                Buttons.Add("DeleteRecord", "Kaydı Sil")
			Case EventType.ValidateForm
				If Check("Kimlik", IsEmpty("Kimlik"), "Kimlik numarasını girmek zorundasınız.") Then Exit Sub
				Rs = Saglik.Evlenme.OkuKimlikle(Remote, Input("Kimlik"))
				If Check("Kimlik", Rs.EOF, "Evlenme kaydı bulunamadı.") Then Exit Sub
				SetValues("islemtar,adi,soyadi,sube,odememik,dosyano", Rs("islemtar"), Rs("adi"), Rs("soyadi"), Rs("sube"), Rs("odememik"), Rs("dosyano"))
				Buttons.Show("DeleteRecord.Save.Reset")
				Help = "Düzeltme bilgilerini girin."
				e.Result = True
            Case EventType.Other
                Select Case e.Name
                    Case "DeleteRecord"
                        If Not Confirm("Bu kaydı silmek istediğinizden emin misiniz?") Then Exit Sub
                        Saglik.Evlenme.Sil(Remote, Input("dosyano"))
                        Info("Kayıt silinmiştir.")
						ResetForm()
				End Select
			Case EventType.Save
				Saglik.Evlenme.Kaydet(Remote, Input("Kimlik"), Input("sube"), Input("odememik"), Input("dosyano"))
				Info("Düzeltme işlemi başarıyla tamamlanmıştır.")
				ResetForm()
		End Select
    End Sub

End Class
